R Notebook

library(data.table)

Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
data.table 1.14.8 using 1 threads (see ?getDTthreads).  Latest news: r-datatable.com
**********
This installation of data.table has not detected OpenMP support. It should still work but in single-threaded mode.
This is a Mac. Please read https://mac.r-project.org/openmp/. Please engage with Apple and ask them for support. Check r-datatable.com for updates, and our Mac instructions here: https://github.com/Rdatatable/data.table/wiki/Installation. After several years of many reports of installation problems on Mac, it's time to gingerly point out that there have been no similar problems on Windows or Linux.
**********

library(tidyr)

# Data of Wave 5


WV5_data <- readRDS("/Users/cristinacandido/Documents/Github/risk_wvs/data/WVS/F00007944-WV5_Data_R_v20180912.rds")

# Convert WV5_data-object in data.frame 
WV5_data_df <- as.data.frame(WV5_data)

# show first five columns
head(WV5_data_df[, 1:5])

# Data of Wave 6
WV6_data <- load("/Users/cristinacandido/Documents/Github/risk_wvs/data/WVS/WV6_Data_R_v20201117.rdata")
WV6_data <- WV6_Data_R_v20201117
print(WV6_data)

# Convert WV6_data-object in data.frame 
WV6_data_df <- as.data.frame(WV6_data)

# show first five columns
head(WV6_data_df[, 1:5])

WV6_data_df

print(WV5_data_df)

print(WV6_data_df)

library(dplyr)

WV5_data <- WV5_data_df %>%
  rename(risk = V86, sex = V235, age = V237)
WV5_data

WV5_data <- WV5_data %>%
  select(risk, sex, age)
WV5_data

NA
NA
NA

p2 = ggplot(WV5_data_df, aes(risk_and_adventure,sex, color = as.factor(country)))+
  geom_point()+
  geom_smooth(method = "lm", se = TRUE)
p2